Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE08/CLINIC/LISTING4.PAS

Pascal/Delphi Source File | 1996-03-16 | 482 b | 17 lines

{Listing 4}
procedure TMainForm.WMNCLButtonDblClk(var Msg: TWMNCLButtonDblClk);
var
  tScreenPt, ClientPt: TPoint;
begin
  ScreenPt.X := Msg.XCursor;
  ScreenPt.Y := Msg.YCursor;
  ClientPt := ScreenToClient(ScreenPt);
  if (Msg.HitTest = htMenu) and (ClientPt.X < GetSystemMetrics(sm_CYMenu))
    and (ActiveMDIChild <> nil) and
    (ActiveMDIChild.WindowState = wsMaximized) then begin
    ActiveMDIChild.Close;
    Msg.Result := 0;
  end else
   inherited;
end;